home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 May & June / Amiga-CD 1996 #5-6.iso / demos / mainactor-demo / mainactor / install < prev    next >
Encoding:
Text File  |  1996-03-22  |  7.2 KB  |  252 lines
  1. ; $VER: Install MainActor 1.50 1.2 © Village Tronic Marketing GmbH (22-Feb-94 )
  2. ; Script to install MainActor 1.50
  3.  
  4. (complete 0)
  5.  
  6. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  7. ;
  8. ; NAMING SECTION
  9. ;
  10. ; first of all I set some vars to file names. This will help me changing
  11. ; names easely.
  12. ;
  13.  
  14. (set #FirmenName      "Village Tronic")      ; name of the company
  15. (set #Picasso         "Picasso-II")          ; name of the board
  16. (set #Progname        "MainActor 1.50")      ; name of the game
  17. (set #RealProgname    "MainActor")           ; name of the program
  18.  
  19. (set #defaulttarget   "WORK:")               ; default destination partition
  20. (set #defaultdirname  "MainActor")           ; default destination dir
  21. (set #defaultassign   "MainActor")           ; default assign name
  22.  
  23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  24. ;
  25. ; LANGUAGE SECTION
  26. ;
  27. ; to support more than only one language, there is a special section for
  28. ; each supported language.
  29. ;
  30.  
  31. (if (<> @language "english")
  32. ((if (<> @language "deutsch")
  33.  ( set @language "english")
  34.  )
  35. ))
  36.  
  37. ;==========================================================================
  38. ; English strings
  39.  
  40. (if (= @language "english")
  41. (
  42. (set default_lang 4)
  43.  
  44. (set #bad-kick
  45. (cat "You must use Kickstart 2.0 to install the " #Progname
  46. ))
  47.  
  48. (set #introduction
  49. (cat "This program will install the " #Progname " software for your "
  50.      "graphic board. It takes all necessary steps and takes care "
  51.      "of the operating system version."
  52. ))
  53.  
  54. (set #ask-installdir
  55. (cat "Please choose a directory, where a drawer for " #Progname
  56.      " will be created:"
  57. ))
  58.  
  59. (set #ask-installdir-help
  60. (cat "You have to choose a directory, where a new drawer should be "
  61.      "created by this install script. The new drawer will be created "
  62.      "in the directory you choose. If you do not choose any directory "
  63.      #defaulttarget " will be choosen and a drawer " #defaultdirname
  64.      " will be created".
  65. ))
  66.  
  67. (set #copy-program
  68. (cat "You need to copy the listet files. After copying you can start the "
  69.      "program with a double click on its icon."
  70. ))
  71.  
  72. (set #copy-program-help
  73. (cat "The files will be copied to the drawer you have specified. "
  74.      "To run the program with all features it is good to "
  75.      "have a 32-Bit-CPU and a lot of RAM builtin."
  76. ))
  77.  
  78. (set #assign-userstartup
  79. (cat "To function properly, there must be an assign "
  80.      "placed in the \"s:user-startup\". Shall I do that know?"
  81. ))
  82.  
  83. (set #assign-userstartup-help
  84. (cat "The program looks in special locations for files, it needs to "
  85.      "run. To find them, a special Assign must exist. You can create "
  86.      "the assign each time you want to start the program, or let the "
  87.      "system creating the assign at startup."
  88. ))
  89.  
  90. (set #decompress-message
  91. (cat "Decompressing some files..."
  92. ))
  93.  
  94. ))
  95.  
  96. ;=============================================================================
  97. ; German strings
  98.  
  99. (if (= @language "deutsch")
  100. (
  101. (set default_lang 2)
  102.  
  103. (set #bad-kick
  104. (cat "Sie müssen Kickstart 2.0 zum Installieren der "
  105.      #PicassoSoft " benutzen."
  106. ))
  107.  
  108. (set #introduction
  109. (cat "Mit diesem Programm können Sie die " #Progname "- Software zu Ihrer "
  110.      #Picasso "-"
  111.      "Grafikkarte installieren. Die Installation nimmt alle notwendigen "
  112.      "Schritte vor und beachtet auch die aktuelle Betriebssystemversion.\n"
  113. ))
  114.  
  115. (set #ask-installdir
  116. (cat "Bitte geben Sie den Ort an, in welchem ein neues Verzeichnis "
  117.      "für die Software erzeugt werden soll."
  118. ))
  119.  
  120. (set #ask-installdir-help
  121. (cat "Die " #Progname "-Software wird in ein eigenes Verzeichnis kopiert, das "
  122.      "der Installer selbst anlegt. Wo er dieses Verzeichnis anlegt, können "
  123.      "Sie angeben. \n\nWenn Sie kein Verzeichnis angeben, wird "
  124.      #defaulttarget " als Partition und " #defaultdirname " als "
  125.      "Verzeichnisname ausgewählt. Sie können den Namen des Verzeichnisses "
  126.      "auch nachträglich problemlos ändern."
  127. ))
  128.  
  129. (set #copy-program
  130. (cat "Nun wird alles nötige kopiert. Nach der Installation können Sie das "
  131.      "Programm per Doppelklick auf das Icon starten."
  132. ))
  133.  
  134. (set #copy-program-help
  135. (cat "Die Dateien  werden nun in das Verzeichnis kopiert, dessen Ort Sie "
  136.      "ausgewählt haben. "
  137.      "Sie sollten dafür sorgen, "
  138.      "daß Sie soviel Speicher wie möglich "
  139.      "und eine 32-Bit-CPU in Ihrem Rechner haben, um das Programm in "
  140.      "hoher Geschwindigkeit nutzen zu können."
  141. ))
  142. (set #assign-userstartup
  143. (cat "Damit " #RealProgname " korrekt funktioniert, muß ein Assign in die "
  144.      "\"S:User-Startup\" aufgenommen werden. Soll das jetzt automatisch "
  145.      "für Sie erledigt werden?"
  146. ))
  147.  
  148. (set #assign-userstartup-help
  149. (cat #RealProgname " benötigt ein Assign, um seine Module zu finden. "
  150.      "Sie können dieses Assign jedesmal vor dem Start per Hand anlegen, "
  151.      "oder aber dies dem Amiga beim Starten überlassen. Wenn dies "
  152.      "automatisch geschehen soll, muß ein Eintrag in die \"S:User-Startup\""
  153.      " vorgenommen werden."
  154. ))
  155.  
  156. (set #decompress-message
  157. (cat "Entpacke archivierte Dateien..."
  158. ))
  159.  
  160. ))
  161.  
  162.  
  163. ;=============================================================================
  164. ; make sure we are running under V37
  165.  
  166. (if (< (/ (getversion) 65536) 37)
  167. (
  168.     (abort #bad-kick)
  169. ))
  170.  
  171. ;******************************************************************
  172. ;******************* FULL INSTALL *********************************
  173. ;******************************************************************
  174.  
  175. ;=============================================================================
  176. ; say hi!
  177.  
  178. (welcome)
  179.  
  180. ;=============================================================================
  181. ; what we will do the next time together
  182.  
  183. (message #introduction)
  184.  
  185. ;=============================================================================
  186. ; first we will get the dirs we need
  187.  
  188. (set sourcedir (pathonly @icon))
  189.  
  190. (set target (askdir (prompt #ask-installdir)
  191.                     (help   #ask-installdir-help)
  192.                     (default #defaulttarget)
  193.             )
  194. )
  195.  
  196. (set target (tackon target #defaultdirname))
  197.  
  198. (set @default-dest target)
  199.  
  200. ;
  201. ; if the dir does not exist, we have to create one
  202. ;
  203. (if (< (exists target) 2)
  204.    (makedir target (infos))
  205. )
  206.  
  207. (complete 5)
  208.  
  209. ;=============================================================================
  210. ; next we copy the program
  211.  
  212. (copyfiles (prompt #copy-program)
  213.            (help   #copy-program-help)
  214.            (source sourcedir)
  215.            (dest   target)
  216.            (pattern "~((#?.info)|Install#?|Archiv.lha)")
  217.            (infos)
  218.            (confirm "average")
  219. )
  220.  
  221. (complete 95)
  222.  
  223. ;=============================================================================
  224. ; now we have to decompress some stuff we want to install
  225.  
  226. (working #decompress-message)
  227.  
  228. (run (cat (tackon sourcedir "lhx ")
  229.                     "-w=" target " x "
  230.                     (tackon sourcedir "Archiv.lha")
  231.                )
  232. )
  233.  
  234. ;=============================================================================
  235.  
  236. (set #assign-string (cat "Assign " #defaultassign ": \"" target "\""))
  237.  
  238. (startup #RealProgname
  239.            (prompt  #assign-userstartup)
  240.            (help    #assign-userstartup-help)
  241.            (command #assign-string)
  242. )
  243.  
  244. (makeassign #defaultassign target)
  245.  
  246. (complete 100)
  247.  
  248. ;=============================================================================
  249. ; "Say goodnight Gracy."
  250. ; this will be done automaticaly
  251.  
  252.